home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-03 / qbasicpg.zip / PDOC.BAS < prev    next >
BASIC Source File  |  1991-05-19  |  787b  |  23 lines
  1. '   Note: Simply run this routine using the QuickBASIC editor without any
  2. '   library.
  3. '
  4.     COLOR 15, 0: CLS
  5.     PRINT "The QuickBASIC Utility Set Documentation file is formatted to be printed on an"
  6.     PRINT "Epson(tm) command compatable printer. You may experience problems if your"
  7.     PRINT "printer will not handle Epson(tm) commands."
  8.     PRINT
  9. PrintLoop:
  10.     PRINT "Print the QuickBASIC Utility Set Documentation file? [Y/N] :";
  11.    
  12.     LOCATE , , 1
  13.     DO: A$ = UCASE$(INKEY$): LOOP UNTIL A$ <> "": PRINT A$
  14.     IF A$ = "Y" THEN
  15.         INPUT " Input the file name to Print"; A$
  16.         COLOR 31: CLS : PRINT "Printing......"
  17.         SHELL "TYPE Z$ > LPT1:"
  18.         COLOR 15: CLS : END
  19.     END IF
  20.     IF A$ <> "N" THEN BEEP: GOTO PrintLoop
  21.     CLS : END
  22.  
  23.